home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue32 / kronos / KRONOS.ZIP / KronosNO.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-02-24  |  3.8 KB  |  127 lines
  1. unit KronosNO;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Kronos;
  8.  
  9. type
  10.   TKronosNO = class(TKronos)
  11.   private
  12.     { Private declarations }
  13.   protected
  14.     { Protected declarations }
  15.     procedure SetCountrySpecifics; override;
  16.   public
  17.     { Public declarations }
  18.     constructor Create(AOwner : TComponent);override;
  19.   published
  20.     { Published declarations }
  21.   end;
  22.  
  23. procedure Register;
  24.  
  25. implementation
  26.  
  27. procedure Register;
  28. begin
  29.   RegisterComponents('Samples', [TKronosNO]);
  30. end;
  31.  
  32. procedure TKronosNO.SetCountrySpecifics;
  33. var
  34.    DT : TDaytypeDef;
  35. begin
  36.    SpecifyStandardDay(chAdvent1,'1. s°. i advent', true, false);
  37.    SpecifyStandardDay(chAdvent2, '2. s°. i advent', true, false);
  38.    SpecifyStandardDay(chAdvent3, '3. s°. i advent', true, false);
  39.    SpecifyStandardDay(chAdvent4, '4. s°. i advent', true, false);
  40.    SpecifyStandardDay(chChristmasEve, 'Julaften', false, false);
  41.    SpecifyStandardDay(chChristmasDay, '1. juledag', true, true);
  42.    SpecifyStandardDay(chBoxingDay, '2. juledag', true, false);
  43.    SpecifyStandardDay(chNewYearEve, 'Nyttσrsaften', false, false);
  44.    SpecifyStandardDay(chNewYearDay, 'Nyttσrsdag', true, true);
  45.    SpecifyStandardDay(chShroveTuesDay, 'Fetetirsdag', false, false);
  46.    SpecifyStandardDay(chAshWednesday, 'Askeonsdag', false, false);
  47.    SpecifyStandardDay(chPalmSunday, 'Palmes°ndag', true, false);
  48.    SpecifyStandardDay(chMaundyThursday, 'Skjµrtorsdag', true, false);
  49.    SpecifyStandardDay(chGoodFriday, 'Langfredag', true, false);
  50.    SpecifyStandardDay(chEasterEve, 'Pσskeaften', false, false);
  51.    SpecifyStandardDay(chEasterSunday, '1. pσskedag', true, true);
  52.    SpecifyStandardDay(chEasterMonday, '2. pσskedag', true, false);
  53.    SpecifyStandardDay(chWhitEve, 'Pinseaften', false, false);
  54.    SpecifyStandardDay(chWhitSunday, '1. pinsedag', true, true);
  55.    SpecifyStandardDay(chWhitMonday, '2. pinsedag', true, false);
  56.    SpecifyStandardDay(chAscensionDay, 'Kr. himmelfartsdag', true, false);
  57.  
  58.    SpecifyStandardDay(coMayDay, '1. mai', true, true);
  59.    SpecifyStandardDay(coUNDay, 'FN-dagen', false, false);
  60.    SpecifyStandardDay(coWomensDay, 'Kvinnedagen', false, false);
  61.    SpecifyStandardDay(coLiteracyDay, 'Int. litteraturdag', false, false);
  62.  
  63.    with DT do
  64.    begin
  65.         AName := 'Blσmandag';
  66.         ADate := 0;
  67.         ARelDaytype := chEasterSunday;
  68.         AnOffset := -48;
  69.         AFirstShowUp := 1;
  70.         ALastShowUp := 9999;
  71.         AShowUpFrequency := 1;
  72.         AChurchday := false;
  73.         AHoliday := false;
  74.         AFlagday := false;
  75.         AUserCalc := false;
  76.         ATag := 0;
  77.         AddDaytype(TDaytype.Create(DT));
  78.  
  79.         AName := 'Frigj°ringsdag';
  80.         ADate := 508;
  81.         ARelDaytype := 0;
  82.         AnOffset := 0;
  83.         AFlagDay := true;
  84.         AFirstShowUp := 1945;
  85.         AddDaytype(TDaytype.Create(DT));
  86.  
  87.         AName := 'Grunnlovsdag';
  88.         ADate := 517;
  89.         AFirstShowup := 1814;
  90.         AHoliday := true;
  91.         AddDaytype(TDaytype.Create(DT));
  92.  
  93.         AName := 'St. Hansaften';
  94.         ADate := 624;
  95.         AFirstShowup := 1;
  96.         AHoliday := false;
  97.         AFlagday := false;
  98.         AddDaytype(TDaytype.Create(DT));
  99.  
  100.         AName := 'Olsok';
  101.         ADate := 729;
  102.         AFirstShowup := 1000;
  103.         AHoliday := false;
  104.         AFlagday := true;
  105.         AChurchday := true;
  106.         AddDaytype(TDaytype.Create(DT));
  107.  
  108.         AName := 'Unionsoppl°sningen';
  109.         ADate := 607;
  110.         AFirstShowup := 1905;
  111.         AFlagday := true;
  112.         AChurchday := false;
  113.         AddDaytype(TDaytype.Create(DT));
  114.    end;
  115.  
  116. end;
  117.  
  118. constructor TKronosNO.Create;
  119. begin
  120.      inherited Create(AOwner);
  121.      FirstWeekDay := Monday;
  122.      WeekHolidays := [Sunday];
  123. end;
  124.  
  125.  
  126. end.
  127.